  //MyHeadlineLabel[counter].Caption:=chr(ascii)                                //Array-Komponente der Beschriftungszeile



  //StatusBar1.Panels[8].Text:='1. Transposition';
  BitBtn8.Enabled:=false;                                                       //Transposition derzeit gesperrt
  BitBtn9.Enabled:=true;                                                        //Fnfer-Gruppen Schalten fr den Cipherchiffre ist frei
  Button2.Enabled:=false;                                                       //Freigabe fr die Transposition gesperrt
  //alle Objekte wieder sichtbar machen
  for i:=0 to 2024 do
  begin
    MyMatrixPanel[i].Visible:=true;
  end;




  //teste auf alle Buchstaben bei A beginnednd und gruppiere um!!!
  counter:=0;
  position:=0;
  Edit3.Text:='';
  for ascii:=65 to 90 do                                                        //Zeichen von "A" bis "Z" werden aufgerufen
  begin
    MyHeadlineLabel[counter].Caption:=chr(ascii);
    for i:=0 to length(ComboBox1.Text)-1 do
    begin
      if ComboBox1.Text[i]=chr(ascii)
      then
      begin
        Edit3.Text:=Edit3.Text+IntToStr(i)+',';
        if position<i                                                           //wenn aktuelle Position kleiner als aktuelle Zeichenposition, dann tauschen
        then
        begin
          tausch1(position,i-1);
          inc(position);
          inc(counter);
        end
        else
        begin
          inc(counter);
        end;
      end;
    end;
  end;
  //? unsichtbar machen
  for i:=0 to 2024 do
  begin
    if MyMatrixPanel[i].Caption='?'
    then
    begin
      MyMatrixPanel[i].Visible:=false;
    end;
  end;
  //Punkte wieder schwarz frben
  for i:=0 to 2024 do
  begin
    if (MyMatrixPanel[i].Caption='.')and(MyMatrixPanel[i].Visible=true)
    then
    begin
      MyMatrixPanel[i].Visible:=false;
    end;
  end;
  //Elemente, welche nicht zur Matrix gehren unsichtbar schalten
  //Text spaltenenweise auslesen und in Memo4 schreiben
  //Buchstaben sind mit Ciphertext beschriebene Zeichen
  //? - Fragezeichen sind nicht genutzte Stellen innerhalb der Matrix
  //Punkte sind Fehlstellen in der Matrix
  Memo3.Clear;
  for i:=0 to length(ComboBox1.Text)-1 do                                       //volle Zeichenlnge des Keywords abarbeiten (das sind alle Spalten der sortieren Matrix)
  counter:=0;
  begin
    repeat
      if MyMatrixPanel[counter*45+i].Caption<>'.'
      then
      begin
        Memo3.Text:=Memo3.Text+MyMatrixPanel[counter*45+i].Caption;
        outputtext:=outputtext+MyMatrixPanel[counter*45+i].Caption;
      end;
      inc(counter);
    until MyMatrixPanel[counter*45+i].Caption='?';
  end;